      subroutine recyrSQLite

      use parm

      integer :: j

      do j = 1, mrecd

         call commoncommandSQLite(recinsert,j,iyr,
     &       recyro(1,j), !!water
     &       recyro(2,j), !!sediment
     &       recyro(3,j), !!PP
     &       recyro(4,j), !!DP
     &       recyro(5,j), !!TP
     &       recyro(6,j), !!PN
     &       recyro(7,j), !!DN
     &       recyro(8,j)) !!TP

      end do
      end
